ゲーム攻略・無料ウィキレンタルのアットウィキ (@WIKI)

https://w.atwiki.jp/aurora72source2/pages/51.html

aaa #!/usr/local/bin/perl # 上の１行の前には空行も空白文字もはいらないようにしてください。 # perlのパス名はプロバイダや環境に合わせて変更してください。 #require "jcode.pl"; # # CGIのヘッダを書き出します。通常は text/html を指定します。 # print "Content-type text/html\n"; print "\n"; # # HTMLを書き出します。 # "～\n" の～の部分に HTML を記述しますが、ダブルクォーテーション( " ) # を用いる際は " の代わりにを用いるか、\" のように、バックスラッシュ( \ ) # を前に置いてください。 # print " HTML \n"; print " HEAD \n"; print " TITLE CGI TEST /TITLE \n"; print " /HEAD \n"; print " BODY BGCOLOR= #FFFFFF TEXT= #000000 \n"; # # wwwperl.cgi?引数1+引数2 で指定したコマンド引数を書き出します。 # # #print " hr \n"; # print "=================================\n"; print "コマンド引数\n"; print "=================================\n"; for ($i = 0; $i = $#ARGV; $i++) { print "ARGV[$i] = [ $ARGV[$i] ]\n"; } print "\n"; print " hr \n"; # # CGIスクリプトが参照可能な環境変数を書き出します。 # print "=================================\n"; print "環境変数\n"; print "=================================\n"; print "AUTH_TYPE = [ $ENV{ AUTH_TYPE } ]\n"; print "CONTENT_LENGTH = [ $ENV{ CONTENT_LENGTH } ]\n"; print "CONTENT_TYPE = [ $ENV{ CONTENT_TYPE } ]\n"; print "GATEWAY_INTERFACE = [ $ENV{ GATEWAY_INTERFACE } ]\n"; print "HTTP_ACCEPT = [ $ENV{ HTTP_ACCEPT } ]\n"; print "HTTP_FORWARDED = [ $ENV{ HTTP_FORWARDED } ]\n"; print "HTTP_REFERER = [ $ENV{ HTTP_REFERER } ]\n"; print "HTTP_USER_AGENT = [ $ENV{ HTTP_USER_AGENT } ]\n"; print "HTTP_X_FORWARDED_FOR = [ $ENV{ HTTP_X_FORWARDED_FOR } ]\n"; print "PATH_INFO = [ $ENV{ PATH_INFO } ]\n"; print "PATH_TRANSLATED = [ $ENV{ PATH_TRANSLATED } ]\n"; print "QUERY_STRING = [ $ENV{ QUERY_STRING } ]\n"; print "REMOTE_ADDR = [ $ENV{ REMOTE_ADDR } ]\n"; print "REMOTE_HOST = [ $ENV{ REMOTE_HOST } ]\n"; print "REMOTE_IDENT = [ $ENV{ REMOTE_IDENT } ]\n"; print "REMOTE_USER = [ $ENV{ REMOTE_USER } ]\n"; print "REQUEST_METHOD = [ $ENV{ REQUEST_METHOD } ]\n"; print "SCRIPT_NAME = [ $ENV{ SCRIPT_NAME } ]\n"; print "SERVER_NAME = [ $ENV{ SERVER_NAME } ]\n"; print "SERVER_PORT = [ $ENV{ SERVER_PORT } ]\n"; print "SERVER_PROTOCOL = [ $ENV{ SERVER_PROTOCOL } ]\n"; print "SERVER_SOFTWARE = [ $ENV{ SERVER_SOFTWARE } ]\n"; print "\n"; # 時間帯を日本時間に設定する #$ENV{ TZ } = "JST-9"; # プログラム強制中断の際の処理を記述する #$SIG{ INT } = $SIG{ HUP } = $SIG{ QUIT } = $SIG{ TERM } = "sigexit"; #sub sigexit { # # この部分に作業ファイル削除などの終了処理を記述する #} #require "jcode.pl"; #$xx = "漢字"; # jcode convert(*xx, "euc"); # # フォームに指定した値を読み込んで、書き出します。 # print "=================================\n"; print "フォーム変数\n"; print "=================================\n"; if ($ENV{ REQUEST_METHOD } eq "POST") { # POSTであれば標準入力から読込みます read(STDIN, $query_string, $ENV{ CONTENT_LENGTH }); } else { # GETであれば環境変数から読込みます $query_string = $ENV{ QUERY_STRING }; } # 「変数名1=値1 変数名2=値2」の形式をアンパサンド( )で分解します @a = split(/ /, $query_string); # それぞれの「変数名=値」について foreach $a (@a) { # イコール( = )で分解します ($name, $value) = split(/=/, $a); # + や %8A などをデコードします $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # 変数名と値を書き出します print "$name = $value\n"; # 後で使用する場合は、$FORM{ 変数名 } に代入しておきます $FORM{$name} = $value; } # # # open(IN, "xxxx.txt"); while ( IN ) { print $_; } close(IN); # # # #open(IN, "/usr/local/bin/nkf -e datafile.txt |"); print "==================================================\n"; $cmdstr = "ls -la $FORM{ updir } |"; open(IN, "ls -la |"); j = 0; while ( IN ) { @linedat = split(/ /, $linedata); # print $_; j++; print "---------------------------------------------------\n"; print "j = $j\n"; foreach $i (@linedat) { print "i = $i\n"; } print "---------------------------------------------------\n"; print END_OF_DATA01; tr bgcolor=#ffffcc td colspan=5 ■ input type=checkbox name=chkno value= | input type=radio name=delno value= END_OF_DATA01 # 31 print "j"; # printf("Name=%s, Age=%d\n", $name, $age); print END_OF_DATA02; | a href=http // END_OF_DATA02 #www.ie.u-ryukyu.ac.jp/~j05017/ie/profile/rep8.html print "$FORM{ adrs }"; print "$linedat(8)"; print END_OF_DATA03; b END_OF_DATA03 # さめがめプログラミングレポート print END_OF_DATA04; /b /a | input type=text size=30 name=re_name value= | input type=text size=4 name=kengen value=777 END_OF_DATA04 # 755 print END_OF_DATA04; | END_OF_DATA04 # 2008.01.01 01 01 01 print "$linedat(8)"; print END_OF_DATA05; | /td /tr END_OF_DATA05 } close(IN); print "==================================================\n"; #open(IN01, "_form.f"); #open(IN01, "_form.clf"); #open(IN01, "_form.f"); #while ( IN01 ) { # print $_; #} #close(IN01); # # HTMLの終わりの部分を書き出します。 # print " /BODY \n"; print " /HTML \n"; print "\n"; aaa

ウミガメ人狼wiki - 鬼畜CGI伝説

https://w.atwiki.jp/umigamejinnro/pages/43.html

CGI空気嫁！！！　～参加者一同～全盛期の鬼畜CGI伝説 3村中5身代わり役職は当たり前、3村中8身代わり役職も役職希望なしでも咲夜さんに大量の狼役職を与えたおかげで、未だに咲夜さんは警戒される最近のCGIのマイブームは藍狼らしい CGIにとっての身代わり狩人は身代わり占いの振り損ない投票時間が半分残っているのに村人を突然死させる身代わり共有を2連続、しかも同じ人に相方を振った事があるあろう事か、身代わり君を生存させた事がある身代わり君に占い師、狼に権力者と決定者を振ったことも５回目で投票が決まっても引き分け扱いその修正でバグる役職希望無視なんてザラ、正反対の役職を振ることもグッとガッツポーズしただけで６回くらい連続でこいし人外関係の深いアイコン･ＲＰの二人を共有者にするというファンサービスあまりに身代わり君に占い師を振るので、最初から真占いはいないと決め打たれてた時期も初日にパンダにされた村人が霊界へ行ってみると、すでに身代わり君が霊能者だった初日にパンダにされた村人が霊界へ行ってみると、なんと身代わり君が真占いだった初心者さんが居ると、嬉々として埋毒を与える ※この記事の内容には、一部誇張された表現が含まれています。　何か思う所の有る紳士淑女の皆様は、是非加筆修正して下さい。編集の仕方がわからない/ログインめんどくさいひとはこちらに闇鍋で人外増やしすぎて、開始とともに終了の事態。 -- ＲＯＭ専 (2009-07-26 21 49 29) 名前コメント

実用アプリ＠まとめサイト - メール

https://w.atwiki.jp/jituyou/pages/21.html

メールメール[i]i-nPOP [ez]nPOP [i]COOLMAIL [i]Yahooﾒｰﾙｱﾌﾟﾘ [i]i-nPOP [ez]nPOP [i]COOLMAIL [i]Yahooﾒｰﾙｱﾌﾟﾘ

DTI VPSの設定方法 - CGIの設定

https://w.atwiki.jp/dtisettings/pages/15.html

CGIの設定は～～～

raenola @ ウィキ - cgi

https://w.atwiki.jp/raenola/pages/13.html

aaa

sirokuma @Wiki - CGI

https://w.atwiki.jp/wiki13_sirokuma/pages/37.html

http //penguin.nakayosi.jp/windows/perl.html

アイスペwiki - 遊戯王CGI

https://w.atwiki.jp/also_little/pages/353.html

遊戯王CGIとは、遊戯王のカードゲームをオンラインで楽しむことが出来るゲーム。予め用意されているカードを自分で選んでデッキを組むことが可能。新人にもかなりの人気がある。

ネット航海時代の改造について - cadmin.cgi

https://w.atwiki.jp/soromon_com/pages/38.html

特に説明することもないところ # Sub City Admin # sub cadmin_dis { form_table( up , 100% ,1); reload; print ADUP; 町管理 /td /tr tr td align=left 資金を引き出す： br div align=right input type=text name=cmoney class=text size=10 G br 町資金：$cmoney G br input type=hidden name=id value= $F{ id } input type=hidden name=ps value= $F{ ps } input type=hidden name=mode value= cadmin_money input type=submit value= $sub_lbl class=button /div br /form form method=$method action=$seacgi input type=hidden name=reload value= $action 町を修復： br div align=right input type=text name=repair class=text size=10 pt br ($r_fee Gで1pt回復) br 現在HP：$chp(MAX：$poten) br input type=hidden name=id value= $F{ id } input type=hidden name=ps value= $F{ ps } input type=hidden name=mode value= cadmin_repair input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 積荷搬入： br ADUP reload; my @city_goods = split(/△/,$load); foreach (0 .. $#city_goods) { ($goods) = split(/,/,$city_goods[$_]); $checked = $_ == 0 ? checked ; print qq| input type=radio name=cgoods value= $_ $checked |; print qq|$goods br \n|; } id_ps; print ADMD; div align=right 搬入量： input type=text name=quan class=text size=10 br 価格設定： input type=text name=gprice class=text size=10 br input type=hidden name=mode value= cadmin_intrade input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 船搬入： br ADMD reload; foreach (0 .. $#ship_ind) { $checked = $_ == 0 ? checked ; print qq| input type=radio name=cship value= $_ $checked |; print qq|$ship[$_][4] br \n|; print qq|[積載：$ship[$_][1] 耐久：$ship[$_][2] 速度：$ship[$_][3]] br |; } id_ps; print ADDN; div align=right 価格設定： input type=text name=sprice class=text size=10 br input type=hidden name=mode value= cadmin_inyard input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 財宝搬入： br ADDN reload; my @item_ind = split(/,/,$item_line); foreach (0 .. $#item_ind) { $checked = $_ == 0 ? checked ; print qq| input type=radio name=citem value= $_ $checked |; print qq|$item_ind[$_] br \n|; } id_ps; print ADBM; div align=right 価格設定： input type=text name=iprice class=text size=10 br input type=hidden name=mode value= cadmin_initem input type=submit value= $sub_lbl class=button /div /form br form method=$method action=$seacgi 町売却： br ADBM reload; print qq| input type=checkbox name=csell value= 1 |; print qq|町を売却する br \n|; id_ps; print ADSL; div align=right 価格設定： input type=text name=cprice class=text size=10 br （買取人指定 lt;IDで指定 gt;： input type=text name=buyer class=text size=10 ） br input type=hidden name=mode value= cadmin_csell input type=submit value= $sub_lbl class=button /div ADSL form_table( down ); } # Sub Cadmin Money # sub cadmin_money { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ( $id != $owner ) { error( 不正です ) } if ($F{ cmoney } =~ /[^0-9]/) { play( 数の入力が不正です );exit } my $outmoney = int($F{ cmoney }); $outmoney = 0 if $outmoney 0; # if ( ($money + $outmoney) 0 ) { play( 資金が足りません ); exit }↑製作者の消し忘れだろうか？ $outmoney = $cmoney if $outmoney $cmoney; $money += $outmoney; $cmoney -= $outmoney; $F{ cmode } = 4; msg( $cnameから$outmoney G引き出しました ); add_record( $cnameから $outmoney G 出金 ); set_city; play; } # Sub Cadmin Repair # sub cadmin_repair { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ repair } =~ /[^0-9]/) { play( 数の入力が不正です );exit } my $hpup = int($F{ repair }); $hpup = (-1) * $hpup if $hpup 0; if ( $hpup * $r_fee $money ) { play( 資金が足りません ); exit } if ( $hpup + $chp $poten ) { $money -= ($poten - $chp) * $r_fee; $chp = $poten; } else { $money -= $hpup * $r_fee; $chp += $hpup; } msg( 町を修復しました ); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Trade # sub cadmin_intrade { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ quan } =~ /[^0-9]/) { play( 数の入力が不正です );exit } if ($F{ gprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ gprice } = int($F{ gprice }); if ($F{ gprice } 0 ) { play( マイナスの価格は付けられません ); exit } my @cload_ind = split(/△/,$cload); if (@cload_ind $cl_limit) { play( これ以上積荷を搬入できません ); exit } my @city_goods = split(/△/,$load); ($goods,$load_quan) = split(/,/,$city_goods[$F{ cgoods }]); if (!$goods) { play; exit } $added = $load_quan - $F{ quan }; if ($added 0) { splice(@city_goods , $F{ cgoods } , 1 , $goods,$added ); } elsif ($added = 0) { splice(@city_goods , $F{ cgoods } , 1 ); $F{ quan } = $load_quan; } $load = join( △ ,@city_goods); $cload = join( △ ,@cload_ind, $goods,$F{ quan },$F{ gprice } ); msg( $goodsを$F{ quan }個　搬入しました ); add_record( $cnameに $goodsを＠$F{ gprice }で $F{ quan }個搬入 ); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Yard # sub cadmin_inyard { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ sprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ sprice } = int($F{ sprice }); if ($F{ sprice } 0) { play( マイナスの価格は付けられません ); exit } my @cship_ind = split(/△/,$cship); if (@cship_ind $cs_limit) { play( これ以上船を搬入できません ); exit } ship_data; fleet; load_data; if (!$ship[$F{ cship }][4]) { play; exit } if ( ($total - $total_load - $food - $sailor - $ship[$F{ cship }][1]) 0 ) { play( 残積荷が足りません ); return; } $cship = join( △ ,@cship_ind, $ship_ind[$F{ cship }],$F{ sprice } ); msg( $ship[$F{ cship }][4]を搬入しました ); add_record( $cnameに $ship[$F{ cship }][4]を搬入 ); splice(@ship_ind , $F{ cship } ,1); set_city; $F{ cmode } = 4; play; } # Sub Cadmin In Item # sub cadmin_initem { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ iprice } =~ /[^0-9]/) { play( 数の入力が不正です );exit } $F{ iprice } = int($F{ iprice }); if ($F{ iprice } 0) { play( マイナスの価格は付けられません ); exit } my @item_ind = split(/,/,$item_line); my @citem_ind = split(/△/,$citem); if (!$item_ind[$F{ citem }]) { play; exit } $citem = join( △ ,@citem_ind, $item_ind[$F{ citem }],$F{ iprice } ); msg( $item_ind[$F{ citem }]を搬入しました ); add_record( $cnameに $item_ind[$F{ citem }]を搬入 ); splice(@item_ind , $F{ citem } , 1); $item_line = join( , ,@item_ind); set_city; $F{ cmode } = 4; play; } # Sub Cadmin Bank # sub cadmin_bank { form_table( up , 100% ,1); reload; print qq|銀行・手数料設定　　|; submit_button; print CBNK; /td /tr tr td 引出額　×　 input type=text name=rate value= $crate class=text size=5 ％ br input type=hidden name=mode value= cadmin_setbk CBNK id_ps; form_table( down ); } # Sub Cadmin Set Bank # sub cadmin_setbk { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ rate } =~ /[^0-9]/) { play( 値が不正です ); exit } if ($F{ rate } = 99) { play( 無茶です ); exit } $crate = int($F{ rate }); $action = ; set_city; play; } # Sub Cadmin Intro # sub cadmin_intro { form_table( up , 100% ,1); reload; print qq|宣伝文編集　　|; submit_button; print CIN; /td /tr tr td textarea name=cin cols=30 rows=4 class=text $cintro /textarea br input type=hidden name=mode value= cadmin_setin CIN id_ps; form_table( down ); } # Sub Cadmin Set Intro # sub cadmin_setin { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if (length($F{ cin }) $def_ib) { play( 宣伝文の長さは半角$def_ib文字まで ); exit } $cintro = $F{ cin }; $action = ; set_city; play; } # Sub Cadmin City Sell # sub cadmin_csell { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } if (!$F{ csell }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if ($F{ cprice } =~ /[^0-9]/) { play( 価格が不正です ); exit } if ($F{ buyer } $F{ buyer } =~ /[^0-9]/) { play( 指定IDが不正です ); exit } $csell = $F{ cprice } + 1000000; $buyer = $F{ buyer }; $action = ; set_city; play; } # Sub Cadmin Name # sub cadmin_name { form_table( up , 100% ,1); reload; print qq|名前変更　　|; submit_button; print CNM; /td /tr tr td input type=text name=cnm class=text size=$stx_wth br input type=hidden name=mode value= cadmin_setnm CNM id_ps; form_table( down ); } # Sub Cadmin Set Name # sub cadmin_setnm { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } require csys.cgi ; get_city; if ($id != $owner) { error( 不正です ) } if (!$F{ cnm }) { play( 名前を付けてください ); exit } if (length($F{ cnm }) $def_nb) { play( 名前は半角$def_nb文字まで ); exit } $cname = $F{ cnm }; $action = ; set_city; play; } 1;

蒼星石とお話＠Wiki - cgi

https://w.atwiki.jp/ao-ohanashi/pages/351.html

web用語辞典 - CGI

https://w.atwiki.jp/sevenlives/pages/423.html

FTP パーミッション?